home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / J-Jim Butterfield / (n)j2.d64 / android nim (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  6KB  |  214 lines
  1. 1 PRINT"[147]"TAB(10)"***ANDROID NIM[146]***"
  2. 2 PRINTTAB(18)"BY":PRINTTAB(14)"DON DENIS"
  3. 3 PRINTTAB(11)"TORONTO, CANADA":PRINTTAB(13)"JULY, 1979":FORJ=1TO2E3:NEXT
  4. 10 REM ANIMATED FROM PRG BY BUTTERFIELD
  5. 20 REM C64 RECHOP JIM BUTTERFIELD APR87
  6. 30 SF=64
  7. 31 CL$="                                        "
  8. 33 LN=214:CN=211:KB=198:REM (!!)
  9. 35 DEF FNE(X)=(A(P)ORE)AND(NOT(A(P)ANDE)):IQ=.7
  10. 36 DIM B$(18)
  11. 38 : FORI=0TO17
  12. 39 : READB$(I)
  13. 40 : NEXTI
  14. 41 B$(18)="[157] [146][161][161]  [157][157][157][157][157] [188][146][172]  [157][157][157][157][157] [188][146][190][172] [157][157][157][157][157] [146][161] [172][187][157][157][157][157][157] [146][161] [161][161][157][157][157][157][157]"
  15. 42 B$(18)=B$(18)+" [190][161][146][172] [157][157][157][157][157]  [161][161] [157][157][157][157][157] [188][190][146][162] [157][157][157][157][157][145][145][145][145][145][145][145][146]     [157][157][157][157][157]     "
  16. 43 B$(18)=B$(18)+"[157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     "
  17. 44 B$(18)=B$(18)+"[157][157][157][157][157]     [145]"
  18. 50 DIM PX(17),PY(17),R(17),CM$(5),A(2),B(2)
  19. 60 FORI=0TO17
  20. 70 : READ PX(I),PY(I)
  21. 75 : R(I)=I
  22. 80 : NEXTI
  23. 105 DIM M$(15)
  24. 110 FORI=0TO15
  25. 115 : READ M$(I)
  26. 120 : NEXTI
  27. 121 FORI=0TO5
  28. 122 : READCM$(I)
  29. 123 : NEXTI
  30. 130 GOSUB2000
  31. 146 IQ=.9
  32. 150 RR=3:B(0)=10:B(1)=15:B(2)=18
  33. 155 Q$="DO YOU NEED INSTRUCTIONS?":GOSUB800
  34. 160 IFA$="N"GOTO200
  35. 165 Q$="WE ARE THE EXECUTIONERS.\ PICK ONE OF US (A B OR C)\ TO DESTROY AS MAN
  36. 166 Q$[178]Q$[170]"Y ANDROIDS\ FROM EACH ROW AS YOU WISH.\ THEN IT IS OUR TURN TO PLAY.
  37. 167 Q$=Q$+"\ THE ONE WHO GETS THE LAST DROID WINS.":GOSUB1500
  38. 200 PRINT"[147]":GOSUB2000:FOR N=3TO17
  39. 205 : GOSUB1000
  40. 210 : R(N)=N
  41. 215 : NEXTN
  42. 220 RR=18:A(0)=7:A(1)=5:A(2)=3
  43. 225 TR=0:Q$="DO YOU WANT TO PLAY FIRST?":GOSUB800
  44. 228 M=0
  45. 230 IFA$="N"GOTO245
  46. 235 IFA$<>"Y"GOTO225
  47. 240 M=1-M
  48. 245 IFRR=3GOTO500
  49. 250 IFM=0GOTO400
  50. 255 TR=0:Q$="IT IS YOUR TURN.\ WHICH ROW?":GOSUB800
  51. 256 Z=1
  52. 260 P=ASC(A$)-65
  53. 265 IFP<0ORP>2THENGOSUB600:GOTO255
  54. 270 IFA(P)=0THENGOSUB650:GOTO255
  55. 275 TR=P:Q$="HOW MANY ANDROIDS?":GOSUB800
  56. 280 Z=ASC(A$)-48
  57. 285 IFZ<1ORZ>9THENGOSUB600:GOTO255
  58. 288 POKELN,PY(P):POKECN,PX(P):PRINT"[145][145]"Z
  59. 290 IFZ>A(P)THENGOSUB650:POKELN,PY(P):POKECN,PX(P):PRINT"[145][145] ":GOTO275
  60. 300 SL=25:GOSUB700
  61. 305 POKELN,PY(P):POKECN,PX(P):PRINT"[145][145] "
  62. 310 GOTO240
  63. 400 E=0:F=0
  64. 405 FORP=0TO2
  65. 410 : E=FNE(0):IFA(P)>FTHENF=A(P):I1=P
  66. 415 : NEXTP
  67. 420 FORP=0TO2
  68. 425 : R=FNE(0):IFR<=A(P)GOTO470
  69. 430 : NEXTP:STOP
  70. 470 IFR=A(P)ORIQ>RND(1)THENP=I1:R=A(P)-INT(RND(1)*(A(P)-1)+1)
  71. 475 TR=P:Z=A(P)-R:Q$="WE CHOOSE"+STR$(Z)+" ANDROID FROM ROW "+CHR$(P+65)+".\"
  72. 476 GOSUB1500
  73. 478 SL=5:GOSUB700
  74. 495 GOTO240
  75. 500 Q$=" WIN.\":IFM<>0THENQ$=" LOSE.\"
  76. 505 Q$="YOU"+Q$
  77. 510 IFM=0THENQ$=Q$+" WE WILL PLAY BETTER NEXT TIME.\":IQ=IQ*IQ*IQ
  78. 515 TR=0:GOSUB1500
  79. 520 Q$="WOULD YOU LIKE ANOTHER GAME?":GOSUB800
  80. 525 IFA$<>"N"GOTO200
  81. 530 Q$="THANK YOU FOR PLAYING.\\":GOSUB1500:PRINT"":END
  82. 600 TR=0:R1=0:R2=0:R3=0:SL=17
  83. 605 M1$=M$(9):M2$=M$(10):M3$=M$(11)
  84. 610 GOSUB900
  85. 615 Q$="YOUR ANSWER DOES NOT MAKE SENSE.\"
  86. 616 IFZ=0THENQ$="CAN'T YOU MAKE UP YOUR MIND?\"
  87. 617 GOSUB1500
  88. 620 RETURN
  89. 650 R1=P:R2=P:R3=P:SL=25
  90. 655 M1$=M$(7):M2$=M$(8):M3$=M$(8)
  91. 660 GOSUB900
  92. 665 TR=P:Q$="SORRY, ONLY"+STR$(A(P))+" ANDROIDS LEFT.\"
  93. 670 IFA(P)=0THENQ$="I CAN'T DO IT. I HAVE NONE LEFT.\"
  94. 675 GOSUB1500
  95. 680 RETURN
  96. 700 R1=P:R2=P:R3=P
  97. 705 M1$=M$(6):M2$=M$(8):M3$=M$(8)
  98. 710 GOSUB900
  99. 712 II=B(P)-A(P)
  100. 715 FORI=IITOII+Z-1
  101. 720 : POKELN,PY(I):POKECN,PX(I):PRINT"[145]"B$(6)
  102. 725 : NEXTI
  103. 726 POKE54296,9:POKE54278,240:POKE 54276,17
  104. 727 FORJJ=4TO80:POKE54273,JJ:NEXTJJ:POKE54296,0
  105. 730 FORI=1TOZ
  106. 735 : GOSUB950
  107. 740 : NEXTI
  108. 788 RETURN
  109. 800 POKEKB,0:QU$=Q$:GOSUB1500
  110. 805 T=TI+800
  111. 810 M1$=M$(RND(1)*16)
  112. 815 M2$=M$(RND(1)*16)
  113. 820 M3$=M$(RND(1)*16)
  114. 825 R1=R(RND(1)*RR)
  115. 830 R2=R(RND(1)*RR):IFR2=R1GOTO830
  116. 835 R3=R(RND(1)*RR):IFR3=R2ORR3=R1GOTO835
  117. 840 SL=INT(25*RND(1)+1)
  118. 845 GOSUB900
  119. 850 GETA$:IFA$<>""THENPRINTCL$:RETURN
  120. 855 IFTI>TTHEN Q$=CM$(RND(1)*6)+"\ "+QU$:GOSUB1500:GOTO805
  121. 860 GOTO810
  122. 900 FORC=SL TO1STEP-1
  123. 910 : POKELN,PY(R1):POKECN,PX(R1):PRINT"[145]"B$(ASC(RIGHT$(M1$,C))-SF)
  124. 920 : POKELN,PY(R2):POKECN,PX(R2):PRINT"[145]"B$(ASC(RIGHT$(M2$,C))-SF)
  125. 930 : POKELN,PY(R3):POKECN,PX(R3):PRINT"[145]"B$(ASC(RIGHT$(M3$,C))-SF)
  126. 940 : NEXTC
  127. 945 RETURN
  128. 950 POKELN,PY(R1):POKECN,PX(R1):PRINT"[145]";
  129. 952 POKE54296,9:POKE54278,240:POKE 54276,129
  130. 954 FORJJ=90TO4STEP-7:POKE54273,JJ:NEXTJJ:POKE54296,0
  131. 955 SP=PX(R1):EP=PX(B(P)-A(P))-5
  132. 959 SP=PX(R1):EP=PX(B(P)-A(P))-5
  133. 960 FORJ=SPTOEPSTEP2:PRINT"  -=*[157][157][157]";:NEXTJ
  134. 965 IFINT((EP-SP)/2)*2=EP-SPTHENPRINT"[157]";
  135. 970 PRINT"[145]"B$(18)
  136. 974 RR=RR-1:A(P)=A(P)-1
  137. 976 A=3
  138. 977 ONP+1GOTO990,985,980
  139. 980 A=A+A(1)
  140. 985 A=A+A(0)
  141. 990 FORJ=ATO16
  142. 991 : R(J)=R(J+1)
  143. 992 : NEXTJ
  144. 998 RETURN
  145. 1000 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(1+7*RND(1));
  146. 1010 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(0);
  147. 1020 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(9+5*RND(1));
  148. 1030 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(14+4*RND(1));
  149. 1040 RETURN
  150. 1500 PRINTCL$
  151. 1505 II=0:GOSUB1600
  152. 1510 FORI=1TOLEN(Q$)
  153. 1515 : CH$=MID$(Q$,I,1)
  154. 1517 N=N+1
  155. 1520 : IFCH$=" "THENGOSUB1600
  156. 1525 : IFCH$="\"THENII=I:FORJ=1TO600:NEXTJ:PRINTCL$:GOTO1550
  157. 1530 : POKELN,1:POKECN,I-II:PRINT"[145][157]"CH$
  158. 1550 : NEXTI
  159. 1560 RETURN
  160. 1600 POKELN,PY(TR):POKECN,PX(TR):PRINT"[145]"B$(1);
  161. 1605 POKE54296,9:POKE54278,240:POKE 54276,17
  162. 1610 PRINT"[157][157][157][161][157]";:GOSUB1700
  163. 1615 PRINT"[188][157]";:GOSUB1700
  164. 1620 PRINT" [157]";:GOSUB1700
  165. 1625 PRINT"[188]":GOSUB1700
  166. 1630 N=0
  167. 1650 POKE54296,0:RETURN
  168. 1700 FORJJ=1TO3*RND(1):POKE54273,5*(2+TR*2+3*RND(1)):NEXTJJ
  169. 1710 RETURN
  170. 2000 FOR N=0TO2
  171. 2010 : GOSUB1000
  172. 2020 : PRINT"[145][145][157][157][157]*[157]"CHR$(N+65)
  173. 2030 : NEXTN:RETURN
  174. 5030 DATA" [157] [145][172][146][157][161][157][157][161][161][157][157][161][161][157][157][157][188][190][162][146][157][157][157][145][145][145][145][145][145][145]"
  175. 5035 DATA" [161][161][157][157][157][190][187][187][146][187][157][157][157][157][188][188][172][146] "
  176. 5040 DATA" [187][187][157][157][157][161][191][190][146] [157][157][157][157][162] [172][146][190]"
  177. 5045 DATA" [187][187][157][157][157][190]  [146][187][157][157][157][157][161][191][190][146] "
  178. 5050 DATA" [161][161][157][157][157][161][172][172][146] [157][157][157][157][146][188] [191][146] "
  179. 5055 DATA"  [161][157][157][157][161] [146][190] [157][157][157][157][188] [172][146] "
  180. 5060 DATA"[161][161][146] [157][157][157][188][172] [146] [157][157][157][157][188][190][172][146] "
  181. 5065 DATA" [161]  [157][157][157][157] [187] [146] [157][157][157][157][188] [172][146] "
  182. 5070 DATA"  [146]"
  183. 5075 DATA"[191][157][157][146][188][187][157][157] [188]"
  184. 5080 DATA"[191][157][157][146] [161][157][157] [188]"
  185. 5085 DATA"[191][157][157][146] [161][157][157] [190]"
  186. 5090 DATA"[191][157][157][146] [161][157][157][188] "
  187. 5100 DATA"[161][157][161][157][157][146] [157] [190]"
  188. 5105 DATA"[187][157][191][157][157][172][146] "
  189. 5110 DATA"[187][157][161][157][157][172][146] "
  190. 5115 DATA"[187][157][161][157][157][161][190]"
  191. 5120 DATA"[187][157][161][157][157][161][188]"
  192. 5230 DATA0,2,3,10,0,18,5,2,10,2,15,2,20,2,25,2,30,2,35,2,13,10,18,10,23,10,28
  193. 5240 DATA10,33,10,21,18,26,18,31,18
  194. 5330 DATA AHDEEDABACABACABACAADHDAB
  195. 5335 DATA AHDAFADAFADEDHDAHAFFHFFAA
  196. 5340 DATA AHANCAAABKPLQAKPINHACCAFG
  197. 5345 DATA JOKPLQKPJOKPLQKPJOINFJHFM
  198. 5350 DATA FGNKLJLJLJLJLFHFFADEQNJNID
  199. 5355 DATA AHAFADAFAHADFDFDFDHDAFGKN
  200. 5360 DATA AHBBBAHADEEEDABACABACADEI
  201. 5365 DATA ABBBAHADEEEDAFADAFADAFAHA
  202. 5370 DATA OJJJPPPPQPQPKKKKKKKKKKKKK
  203. 5137 DATA AAAAAAAAHABBBAAACCAHAAAHA
  204. 5380 DATA AAAAAAAAIIIIIJKLLLIIIIIII
  205. 5385 DATA AAAAAAAANIIIIOPQQQNNNNNNN
  206. 5390 DATA AHABADACAFABADACFBDCFBDHD
  207. 5395 DATA ADEDADEDADEDHAFGFAFGFAFGF
  208. 5400 DATA BDBDBDBDBACFMNCACACACAHCA
  209. 5405 DATA AFGGNQPQPQFAHDEPQNDAFGLIG
  210. 5510 DATACOME ON.,WE HAVEN'T GOT ALL DAY!
  211. 5520 DATAWE HAVE BETTER THINGS TO DO.
  212. 5530 DATAJUST ANSWER THE QUESTION.,IT ISN'T THAT DIFFICULT!
  213. 5540 DATATHERE IS A LIMIT TO OUR PATIENCE!
  214.